1 GOTO10
3 GET#1,G$:GA=G:G=ASC(G$+N$):RETURN
5 GOSUB3:F=G:GOSUB3:F=F+256*G:RETURN
7 IFXX<XMANDVZ<XMTHENRETURN
8 PRINT"RAISE XM IN LINE 10!":END
10 PA=4:SA=0:XM=2000:BT=2049
40 PRINT"[147]X-REF":PRINT"PRINTOUT (J/N) ? ";
42 GETG$:IFG$<>"N"ANDG$<>"J"THEN42
44 PRINTG$:IFG$="N"THENPA=3
46 DIMX$(XM),A$(XM),Z$(XM):N$=CHR$(0)
50 INPUT"FILENAME = ";G$:G$=G$+",P,R"
52 OPEN1,8,3,G$:GOSUB3:X=G:GOSUB3:X=X+256*G:G$=DS$
54 IFBT<>XTHENPRINT"FEHLER!",G$:CLOSE1:END
55 PRINT"SEARCHING PRG.
56 [137]600
200 R[178]X:[139][182](R)[179]256[167][139](R[175]127)[178]R[167]230
210 [139]R[179][177]143[167]780
220 XG[178]1E9:[137]780
230 R$[178][199](R):V$[178]"":[139]R$[179]"A"[176]R$[177]"Z"[167]780
240 [139]R$[178]"E"[167]R[178]GA:[139]R[177]47[175]R[179]58[176]R[178]46[167]780
250 RR[178]0:[137]280
260 [141]3:R[178]G:X0[178]X0[170]1:R$[178][199](R):[139]R[178]0[176]R[178]34[167]320
270 [139]R$[179]"0"[176]R$[177]"Z"[176](R$[177]"9"[175]R$[179]"A")[167]290
280 V$[178]V$[170]R$:[153]R$;:[137]260
290 [139]RR[167]310
300 RR[178]R$[178]"$"[176]R$[178]"%":[139]RR[167][153]R$;:V$[178]V$[170]R$:[137]260
310 [139]R$[178]"("[167][153]R$;:V$[178]V$[170]R$
320 [153]" ";:[139]VZ[179]0[167]350
330 R[178][171]1:[129]I[178]0[164]VZ:[139]A$(I)[178]V$[167]R[178]I:I[178]VZ[170]1
340 [130]:[139]R[177][178]0[167]370
350 [141]7:VZ[178]VZ[170]1:R$[178][196](XZ):Z$(VZ)[178][201]("       "[170]R$,7)[170]R$
360 A$(VZ)[178]V$:[137]410
370 V$[178][196](XZ):[139][201](Z$(R),[195](V$))[178]V$[167]410
380 [139][195](Z$(R))[179]60[167]Z$(R)[178]Z$(R)[170]V$:[137]410
390 [141]7:VZ[178]VZ[170]1:D[178]0:A$(VZ)[178]A$(R):Z$(VZ)[178]Z$(R)
400 Z$(R)[178][201]("       "[170]V$,7)[170]V$
410 X[178]G:[139]X[178]0[167]750
420 [139]X[178]34[167]XG[178]1[171]XG:[137]780
430 [137]630
440 [153]"END.":[153]
450 [143]
460 [143]
470 [143]
480 [143]
490 [143]
500 [139]VZ[179]0[167][153]"NO VARIABLES!":[128]
510 [159]1,PA,SA:[157]1:[153]:[153]"VARIABLES X-REF.:
520 FORI=0TOVZ:A$(I)=A$(I)+LEFT$(Z$(I),7):NEXT
530 V$="":FORI=0TOVZ:R$="A
540 [129]J[178]0[164]VZ:Z$[178]A$(J):[139]Z$[177]V$[175]Z$[179]R$[167]R$[178]Z$:ZN$[178]Z$(J)
550 [130]:R[178][195](R$)[171]7
560 [139][200](V$,R)[178][200](R$,R)[167][153]" ",:[137]580
570 [153][200](R$,R),
580 V$[178]R$:[153][202](ZN$,8):[130]:[152]1:[160]1:[128]
590 [143]
600 VZ[178][171]1:XX[178][171]1:XP[178]BT:[141]5:XE[178]F
610 [141]5:XZ[178]F:[153]:[153]XZ,
620 XG[178]1:[129]X0[178]XP[170]4[164]XE[171]2:[141]3:X[178]G:[139]X[178]34[167]XG[178]1[171]XG:[137]780
630 X[178]XG[172]X:[139]X[179][177]137[175]X[179][177]138[175]X[179][177]141[175]X[179][177]155[175]X[179][177]167[167]200
640 X$[178]"":XZ$[178][196](XZ)
650 [139]D[167]630
660 X0[178]X0[170]1:[141]3:X[178]G:[139]X[178]32[167]660
670 [139]X[177]47[175]X[179]58[167]X$[178]X$[170][199](X):[137]660
680 [139]X$[178]""[167]770
690 XQ[178][171]1:[153]X$;" ";:X$[178][201]("       "[170]X$,7):[129]XI[178]0[164]XX
700 [139][200](X$(XI),7)[178]X$[167]XQ[178]XI:XI[178]XX
710 [130]:[139]XQ[179]0[167][141]7:XX[178]XX[170]1:XQ[178]XX:[137]740
720 [139][195](X$(XQ))[179]55[167]X$(XQ)[178]X$(XQ)[170]XZ$:[137]750
730 [141]7:XX[178]XX[170]1:X$(XX)[178]X$(XQ)
740 X$(XQ)[178]X$[170]"   "[170]XZ$
750 [139]X[178]0[167]X0[178]XE[171]2:[130]:[137]790
760 [139]X[178]32[167]X0[178]X0[170]1:[141]3:X[178]G:[137]750
770 [139]X[178]44[167]X$[178]"":[137]660
780 [130]:[141]3
790 XP[178]XE:[141]5:XE[178]F:[139]XE[177]0[167]610
800 [160]1:[139]XX[179]0[167][153]:[153]"NO JUMPS!":[137]500
810 [159]1,PA,SA:[157]1:[153]:[153]"LINE NO. X-REF:
820 XZ$=CHR$(1):FORXQ=0TOXX:X$="A
830 [129]X0[178]0[164]XX:XV$[178]X$(X0):[139]XV$[177]XZ$[175]XV$[179]X$[167]X$[178]XV$
840 [130]:XV$[178]X$:[139][200](XV$,7)[178][200](XZ$,7)[167]XV$[178]"       "[170][202](X$,8)
850 [153]XV$:XZ$[178]X$:[130]:[152]1:[160]1:[137]500